Delphi Programmer's Power Pack/Delphi Volume 1.iso/s_to_z/winmac32/srmain.dfm/srmain.txt

Text File | 1996-09-15 | 25KB | 1,154 lines

object SuperRecorder: TSuperRecorder
  Left = -4
  Top = -4
  Width = 648
  Height = 488
  Caption = 'Super Recorder.  Copyright (c) 1996 by Ken Henderson.'
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'System'
  Font.Style = []
  Position = poDefault
  WindowState = wsMaximized
  OnActivate = FormActivate
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 16
  object Label2: TLabel
    Left = 229
    Top = 0
    Width = 347
    Height = 16
    Alignment = taCenter
    AutoSize = False
    Caption = 'Installed macros'
  end
  object RecordKeyMsg: TLabel
    Left = -1
    Top = 409
    Width = 97
    Height = 16
    Caption = 'Toggle record: '
  end
  object ScrapMacroKeyMsg: TLabel
    Left = 229
    Top = 425
    Width = 89
    Height = 16
    Caption = 'Scrap macro: '
  end
  object CancelKeyMsg: TLabel
    Left = -1
    Top = 425
    Width = 79
    Height = 16
    Caption = 'Cancel key: '
  end
  object PauseKeyMsg: TLabel
    Left = 230
    Top = 409
    Width = 76
    Height = 16
    Caption = 'Pause key: '
  end
  object gbGlobalSettings: TGroupBox
    Left = -1
    Top = 5
    Width = 228
    Height = 356
    Caption = 'Global macro settings'
    Color = clBtnFace
    ParentColor = False
    TabOrder = 1
    object gbMouseRelevant: TGroupBox
      Left = 2
      Top = 145
      Width = 224
      Height = 80
      Caption = 'Record mouse relevant to:'
      TabOrder = 3
      object MousePointer: TRadioButton
        Left = 8
        Top = 16
        Width = 121
        Height = 17
        Caption = 'Pointer'
        TabOrder = 0
        OnClick = MousePointerClick
      end
      object MouseWindow: TRadioButton
        Left = 8
        Top = 37
        Width = 121
        Height = 17
        Caption = 'Window'
        TabOrder = 1
        OnClick = MouseWindowClick
      end
      object MouseScreen: TRadioButton
        Left = 8
        Top = 57
        Width = 121
        Height = 17
        Caption = 'Screen'
        TabOrder = 2
        OnClick = MouseScreenClick
      end
    end
    object CancelCheck: TCheckBox
      Left = 4
      Top = 103
      Width = 213
      Height = 17
      TabStop = False
      Caption = 'Stop when Cancel is pressed'
      TabOrder = 2
      OnClick = CancelCheckClick
    end
    object FastPlay: TCheckBox
      Left = 5
      Top = 28
      Width = 212
      Height = 17
      TabStop = False
      Caption = 'Playback as fast as possible'
      Color = clBtnFace
      ParentColor = False
      TabOrder = 0
      OnClick = FastPlayClick
    end
    object SysWide: TCheckBox
      Left = 5
      Top = 66
      Width = 200
      Height = 17
      TabStop = False
      Caption = 'Create system-wide macros'
      Color = clBtnFace
      ParentColor = False
      TabOrder = 1
      OnClick = SysWideClick
    end
    object gbMouseMessages: TGroupBox
      Left = 2
      Top = 229
      Width = 224
      Height = 81
      Caption = 'Include these mouse messages:'
      Color = clBtnFace
      ParentColor = False
      TabOrder = 4
      object MouseNone: TRadioButton
        Left = 8
        Top = 18
        Width = 121
        Height = 17
        Caption = 'None'
        Color = clBtnFace
        ParentColor = False
        TabOrder = 0
        OnClick = MouseNoneClick
      end
      object MouseClicks: TRadioButton
        Left = 8
        Top = 38
        Width = 128
        Height = 17
        Caption = 'Clicks and drags'
        TabOrder = 1
        OnClick = MouseClicksClick
      end
      object MouseEverything: TRadioButton
        Left = 8
        Top = 59
        Width = 121
        Height = 17
        Caption = 'Everything'
        TabOrder = 2
        OnClick = MouseEverythingClick
      end
    end
    object btApply: TButton
      Left = 20
      Top = 317
      Width = 189
      Height = 33
      Caption = '&Apply (lose macros)'
      TabOrder = 5
      TabStop = False
      OnClick = btApplyClick
    end
  end
  object SaveBtn: TButton
    Left = 579
    Top = 22
    Width = 56
    Height = 26
    Caption = '&Save'
    TabOrder = 4
    TabStop = False
    OnClick = SaveBtnClick
  end
  object LoadBtn: TButton
    Left = 579
    Top = 54
    Width = 56
    Height = 26
    Caption = '&Load'
    TabOrder = 5
    TabStop = False
    OnClick = LoadBtnClick
  end
  object Merge: TCheckBox
    Left = 579
    Top = 85
    Width = 59
    Height = 17
    TabStop = False
    Caption = 'Merge'
    State = cbChecked
    TabOrder = 6
  end
  object Memo1: TMemo
    Left = 229
    Top = 269
    Width = 410
    Height = 92
    Color = clAqua
    Lines.Strings = (
      'Typing Area')
    TabOrder = 0
  end
  object DeleteBtn: TButton
    Left = 229
    Top = 135
    Width = 347
    Height = 17
    Caption = '&Delete'
    TabOrder = 7
    OnClick = DeleteBtnClick
  end
  object btSendKeys: TButton
    Left = 229
    Top = 225
    Width = 410
    Height = 19
    Caption = 'SendKeys: click here to send the text below to the Typing Area'
    TabOrder = 8
    OnClick = btSendKeysClick
  end
  object edSendKeys: TEdit
    Left = 229
    Top = 244
    Width = 410
    Height = 24
    TabOrder = 9
    Text = '~+written by +henderson{left 10} +ken{end}'
  end
  object btAppActivate: TButton
    Left = 0
    Top = 362
    Width = 439
    Height = 19
    Caption = 'AppActivate:  click here to switch to the window named below'
    TabOrder = 10
    OnClick = btAppActivateClick
  end
  object gbToggles: TGroupBox
    Left = 448
    Top = 361
    Width = 93
    Height = 79
    Caption = 'Toggles'
    TabOrder = 12
    object CapsLockButton: TButton
      Left = 4
      Top = 17
      Width = 83
      Height = 20
      Caption = 'Caps'
      TabOrder = 0
      OnClick = CapsLockButtonClick
    end
    object NumlockButton: TButton
      Left = 4
      Top = 37
      Width = 83
      Height = 20
      Caption = 'Num'
      TabOrder = 1
      OnClick = NumlockButtonClick
    end
    object ScrollLockButton: TButton
      Left = 4
      Top = 57
      Width = 83
      Height = 20
      Caption = 'Scroll'
      TabOrder = 2
      OnClick = ScrollLockButtonClick
    end
  end
  object edAppActivate: TEdit
    Left = -1
    Top = 382
    Width = 439
    Height = 24
    TabStop = False
    TabOrder = 11
    Text = 'Calculator'
  end
  object StringGrid1: TStringGrid
    Left = 229
    Top = 13
    Width = 347
    Height = 123
    ColCount = 2
    DefaultColWidth = 128
    DefaultRowHeight = 15
    FixedCols = 0
    RowCount = 2
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = []
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goRowSizing, goColSizing, goRowSelect, goThumbTracking]
    ParentFont = False
    TabOrder = 3
    ColWidths = (
      114
      225)
  end
  object gbNewMacro: TGroupBox
    Left = 230
    Top = 156
    Width = 401
    Height = 67
    Caption = 'New macro'
    TabOrder = 2
    object Label7: TLabel
      Left = 5
      Top = 41
      Width = 38
      Height = 16
      Caption = 'Name'
    end
    object Label8: TLabel
      Left = 8
      Top = 17
      Width = 25
      Height = 16
      Caption = 'Key'
    end
    object MacroKeyComboBox1: TMacroKeyComboBox
      Left = 46
      Top = 14
      Width = 197
      Height = 24
      ItemHeight = 16
      Items.Strings = (
        'LButton'
        'Ctrl+LButton'
        'Alt+LButton'
        'Shift+LButton'
        'Ctrl+Shift+LButton'
        'Ctrl+Alt+LButton'
        'Alt+Shift+LButton'
        'Ctrl+Alt+Shift+LButton'
        'RButton'
        'Ctrl+RButton'
        'Alt+RButton'
        'Shift+RButton'
        'Ctrl+Shift+RButton'
        'Ctrl+Alt+RButton'
        'Alt+Shift+RButton'
        'Ctrl+Alt+Shift+RButton'
        'Cancel'
        'Ctrl+Cancel'
        'Alt+Cancel'
        'Shift+Cancel'
        'Ctrl+Shift+Cancel'
        'Ctrl+Alt+Cancel'
        'Alt+Shift+Cancel'
        'Ctrl+Alt+Shift+Cancel'
        'MButton'
        'Ctrl+MButton'
        'Alt+MButton'
        'Shift+MButton'
        'Ctrl+Shift+MButton'
        'Ctrl+Alt+MButton'
        'Alt+Shift+MButton'
        'Ctrl+Alt+Shift+MButton'
        'Back